
 1000  *SAVE S.WROMWRITE
 1010  *--------------------------------
 1020  LC       .EQ 1      1 if $D000 assembler
 1030  WROMSLOT .EQ 7
 1040  *--------------------------------
 1050       .DO LC
 1060  OBJECT.VECTOR  .EQ $D012
 1070  UNPROTECT.LOW  .EQ $D024
 1080  UNPROTECT.HIGH .EQ $D026
 1090       .ELSE
 1100  OBJECT.VECTOR  .EQ $1012
 1110  UNPROTECT.LOW  .EQ $1024
 1120  UNPROTECT.HIGH .EQ $1026
 1130       .FIN
 1140   
 1150  WRITECARD   .EQ WROMSLOT*$10+$C080
 1160  CARDOFF     .EQ WROMSLOT*$10+$C081
 1170  C800.OFF    .EQ $CFFF
 1180   
 1190  TARGET.LOW  .EQ $C800
 1200  TARGET.HIGH .EQ $CFFF
 1210  *--------------------------------
 1220         .OR $300
 1230  *      .TF WROMWRITE
 1240  INSTALL
 1250       .DO LC
 1260         BIT $C083
 1270         BIT $C083
 1280       .FIN
 1290         LDA /TARGET.LOW
 1300         STA UNPROTECT.LOW+1
 1310         LDA #TARGET.LOW
 1320         STA UNPROTECT.LOW
 1330         LDA /TARGET.HIGH
 1340         STA UNPROTECT.HIGH+1
 1350         LDA #TARGET.HIGH
 1360         STA UNPROTECT.HIGH
 1370         LDA OBJECT.VECTOR+2
 1380         STA CALL+2
 1390         LDA OBJECT.VECTOR+1
 1400         STA CALL+1
 1410         LDA /CARDON
 1420         STA OBJECT.VECTOR+2
 1430         LDA #CARDON
 1440         STA OBJECT.VECTOR+1
 1450       .DO LC
 1460         BIT $C080
 1470       .FIN
 1480         RTS
 1490  *--------------------------------
 1500  CARDON BIT C800.OFF
 1510         BIT WRITECARD
 1520  CALL   JSR $FFFF
 1530         BIT CARDOFF
 1540         RTS

